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SQL> cl scr 



SQL> DECLARE 

2 V_Num NUMBER := 1; — LOOP Initialization 

3 BEGIN 

4 LOOP — LOOP Starts Here 

5 DBMS_OUTPUT . PUT_LINE ('The Line ' || V_Num || 

V_Num) ; --LOOP Action Statement 

6 V_Num := V_Num + 1; — LOOP Updation Statement 

7 IF V_Num > 5 — LOOP Condition Statement 

8 THEN 

9 EXIT; — LOOP Termination Statement 

10 END IF; 

11 END LOOP; — LOOP Ends Here 

12 DBMS_OUTPUT . PUT_LINE ('The Total Lines of Ou 

i) ) ; 

13 END; 

14 / 

The Line 1 Output is 1 
The Line 2 Output is 2 
The Line 3 Output is 3 
The Line 4 Output is 4 
The Line 5 Output is 5 
The Total Lines of Outputs are 5 

PL/SQL procedure successfully 



Output is 




^HE N^> 



I I V_Num | | 



Output is 



SQL> DECLARE 

2 V_Num NUMBER := 1; 

3 BEGIN 

4 LOOP 

5 IF V_Num > 5 

6 EXIT; 

7 END IF; . 

8 DBMS_OUTP^ApUT_LINE ( ' The Line 
v - Num) ; 

9 V_Num tg V |_Nufn + 1 ; 

10 END JjOOPTtr 

11 ^MlpSyTPUT . PUT_LINE ( ' The Total Lines of Outputs are 

i) ); ;vv 

12 lEN^S 

ne 1 Output is 1 
e Line 2 Output is 2 
ffe Line 3 Output is 3 
he Line 4 Output is 4 
The Line 5 Output is 5 
The Total Lines of Outputs are 5 



I I 



| | (V_Num - 
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PL/SQL procedure successfully completed. 

SQL> DECLARE 

2 V_Num NUMBER := 1; 

3 BEGIN 

4 LOOP 

5 DBMS_OUTPUT . PUT_LINE ('The Line ' || V_Num || 

V_Num) ; 

6 V_Num : = V_Num + 1 ; 

7 EXIT WHEN V_Num > 5; 

8 END LOOP; 



Output is 



0 



& 






DBMS_OUTPUT . PUT_LINE ( ' The Total Lines of Outputs (V_Num 



i) ) ; 

10 END; 

11 / 

The Line 1 Output is 1 
The Line 2 Output is 2 
The Line 3 Output is 3 
The Line 4 Output is 4 
The Line 5 Output is 5 
The Total Lines of Outputs are 5 



PL/SQL procedure successfully completed 







6 DBMS_OUTPUT . PUTJ^E'V r The Line ' 



SQL> DECLARE 

2 V_Num NUMBER := 1; 

3 BEGIN 

4 LOOP 

5 EXIT When V Num > 



■ 

k J 



I I V_Num | | 



Output is 



I I 



V_Num) ; 

7 V_Num := V_ 

8 END LOOP; 

9 DBMS_OUTPIiJ %UT_LINE ('The Total Lines of Outputs are 

X io ; END; 

11 / 

The I^ma#' Output is 1 
The U .ne 2 O utput is 2 
The Cin^3 Output is 3 



| | (V_Num - 



O' 



4 Output is 4 
.#h f~ l ine 5 Output is 5 
\he Total Lines of Outputs are 5 



L/SQL procedure successfully completed. 
SQL> cl scr 



SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 

Follow Me: https://www.facebook.com/satishkumar.yellanki 



Spool File For Oracle Students Trained by Mr.Sathish Yellanki 



SQL> DECLARE 

2 V_Num NUMBER := 1; 

3 BEGIN 

4 LOOP 

5 EXIT WHEN V_Num > 10; 

6 LOOP 

7 EXIT WHEN V_Num > 5; 

8 DBMS_OUTPUT . PUT_LINE ( 

9 V_Num := V_Num + 1; 

END LOOP; 

DBMS_OUTPUT . PUT_LINE ( ' Outer Loop 
V_Num : = V_Num + 1 ; 

END LOOP; 



Inner Loop 



10 

11 

12 

13 

14 

15 



| | V_Num) 



| | V_Num) 



END; 

/ 

Inner Loop 
Inner Loop 
Inner Loop 
Inner Loop 
Inner Loop 
Outer Loop 
Outer Loop 
Outer Loop 
Outer Loop 
Outer Loop 



10 



PL/SQL procedure successful 




# 




eted. 



ol 



SQL> DECLARE 

2 V_Num NUMBER 

3 BEGIN 

4 <<OuterLoop>> 

5 LOOP a 

6 <<InnerLc ^p \> 

7 L00P 

8 EXIT W*N l/_N*im > 5; 

9 DBMS OUMt.PUT LINE (' Inner Loop 
•= V_Num + 1 ; 

+WDOP InnerLoop; 

DBM»_OUTPUT.PUT_LINE ( 'Outer Loop 
rfj^'^TjWum : = V_Num + 1 ; 
li ffcXIT WHEN V_Num > 10; 



| | V_Num) 



| | V_Num) 



5 END LOOP OuterLoop; 



END; 

/ 



Inner Loop 
Inner Loop 
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Inner Loop 
Inner Loop 
Inner Loop 
Outer Loop 
Outer Loop 
Outer Loop 
Outer Loop 
Outer Loop 



10 



0 * 



& 



PL/SQL procedure successfully completed. 
SQL> cl scr 



SQL> DECLARE 

2 V_Number NUMBER (2) := 1; 

3 V_Output VARCHAR2 (100) ; 

4 BEGIN 

5 WHILE V_Number <= 5 

6 LOOP 

7 V_Output := V_Output | | 

8 V_Number := V_Number + 1 

9 END LOOP; 

10 DBMS_OUTPUT . PUT_LINE (V_Output) 

11 END; 

12 / 

1 2 3 4 5 






9 



■ 




: ^ 






PL/SQL procedure success ful^^'^cm^Leted. 

SQL> DECLARE + *+ 

2 V_N umber NUMBER ( 2-f 4 " 

3 V_Output VARCH^R.2 ( 10 ft ; 

4 BEGIN : Pi+ |4i ± 

5 WHILE V_Number 5 

6 LOOP ^ \ 

7 := V_Output ||' '| |V_Number; 

ber : = V_Number + 1 ; 

DBW_OUTPUT.PUT_LINE ( V_Output ) ; 

10 
11 
12 




PL/SQL procedure successfully completed. 
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SQL> DECLARE 

2 V_Number NUMBER (2) := 1; 

3 V_Output VARCHAR2 (100) ; 

4 BEGIN 

5 WHILE V_Number <= 5 

6 LOOP 

7 V_Output := V_Output ||' 

8 V_Number := V_Number + 1; 

9 DBMS_OUTPUT . PUT_LINE ( V_Output ) 

10 END LOOP; 

11 END; 

12 / 

~k 

~k ~k 

~k ~k ~k ~k 



0 



& 







PL/SQL procedure successfully completed 
SQL> cl scr 



SQL> ED 

Wrote file afiedt.buf 




# 




KV 






1 DECLARE 

2 V_Num NUMBER; 

3 V_Position NUMBER; 

V_Result NUMBER := 

BEGIN 

V_Num := SNumjprTo fc^ rse; 

WHILE V_Num :^W rH | 

LOOP a +4T 

V P^sVtion := MOD (V_Num, 10) ; 

: = (V_Result * 10) + V_Position; 
V_N urn :* TRUNC (V_Num / 10) ; 



END LOOE"|r 

^Rt^^pUTPUT . PUT_LINE ( ' The Reverse of the Entered Number is 
~ ‘ * UTPUT . PUT_LINE (V_Result ) ; 



10 
11 
12 

13 

14 D 
15*|END> 

nlfe^ value for numbertoreverse : 1234 
everse of the Entered Number is 

1 



PL/SQL procedure successfully completed. 




) ; 
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SQL> cl scr 



SQL> DECLARE 

2 V_MyDatel DATE := ' SGiveDatel ' ; 

3 V_MyDate2 DATE := ' &GiveDate2 ' ; 

4 BEGIN 

5 WHILE V_MyDatel <= V_MyDate2 

6 LOOP 

7 DBMS_OUTPUT.PUT_LINE (TO_CHAR(V_MyDatel, 'Month')); 

8 V_MyDatel := ADD_MONTHS (V_MyDatel, 1); 

9 END LOOP; 

10 END; , 

11 / 

Enter value for givedatel : 01-JAN-14 
Enter value for givedate2 : 31-DEC-14 
January 
February 
March 
April 
May 
June 
July 
August 
September 
October 
November 
December 



PL/SQL procedure succes: 




npleted. 







o 



SQL> ED 

Wrote file afiedt. 



1 DECLARE 4 

2 V_MyDatel .jpAj'E := ’ SGiveDatel ’ ; 

3 V_My D : = ' &GiveDate2 ' ; 

4 V_Abno?lfel\/ARCHAR2 (10) := INITCAP ( ' SGiveMonth ' ) ; 

5 BEGIN 

6 *H VMyDat e 1 <= V_MyDate2 

7 

8 C”DM 6 _OUTPUT .PUT_LINE ( TO_CHAR (V_MyDatel, 'Month' ) ) ; 

V_Abnormal = TO_CHAR (V_MyDatel , 'Month') 

*1 ~^ THEN 
- 1 EXIT; 

END IF; 

13 V_MyDatel := ADD_MONTHS (V_MyDatel, 1); 

14 END LOOP; 

15* END; 
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givedatel : 
givedate2 : 
givemonth : 



01- JAN- 14 
31-DEC-14 
June 



SQL> / 

Enter value for 

Enter value for 

Enter value for 

January 

February 

March 

April 

May 

June 

July 

August 

September 

October 

November 

December 



PL/SQL procedure successfully completed. 



SQL> ED 
Wrote file 



af iedt . buf 



10 

11 

12 

13 

14 
15* 

SQL> 



DECLARE 

VJMyDatel DATE := '&GiveDatel 
V_MyDate2 DATE := ' &GiveDat%2f*% 
V_Abnormal VARCHAR2 (10) : =^Ol|T?A: 

V_MyDatel <= V^M^at^2tr 




Enter^r 



P ( ' &GiveMonth ' ) 

BEGIN 
WHILE 

LOOP NK 

DBMS_OUTPUT.PUT_LINrf|T'd^pHAR (V_MyDatel, 'Month' ) ) 
IF V_Abnormal = T#^Mi^V_MyDatel , 'FMMonth') 

THEN 

EXIT; ^TrP rH | 

END IF; i +4T 

V_MyDatel ; ; \ ADD_MONTHS (V_MyDatel , 1) 

END 
END; 

/ 

June 



lodL ';■/ 

V 




:= INITCAP ( ' ' ) 



for givedatel : 

Ente w for givedate2 : 

Entet vamie for givemonth : 

V^^ttfial VARCHAR2 (10) 

^RT^5r at line 4 : 

y)KA-01 858 : a non-numeric character was found where a numeric was expected 
TORA-06512: at line 2 
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SQL> / 

Enter value for givedatel : 01-JAN014 
Enter value for givedate2 : 31-DEC-14 
Enter value for givemonth : June 
V_MyDate2 DATE := ' 31-DEC-14'; 

ERROR at line 3: 

ORA-01861: literal does not match format string 
ORA-06512: at line 2 



SQL> / 

Enter value for givedatel : 
Enter value for givedate2 : 
Enter value for givemonth: 
January 
February 
March 
April 
May 
June 

PL/SQL procedure successfully 



01- JAN- 14 

31-DEC-14 ♦ 





0 * 



& 






9 
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